(add-log-current-defun): In Lisp, if we don't find a

real defun, return nil, not "".

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 07468ff1366f1e1cc580e3aa039938588f8a8231..0791fe1fe301d6b3b9cf65c3a5c9734cf7956948 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -340,7 +340,8 @@ Has a preference of looking backwards."
                 (or (eobp) (forward-char 1))
                 (beginning-of-defun)
                 ;; Make sure we are really inside the defun found, not after it.
-                (if (and (progn (end-of-defun)
+                (if (and (looking-at "\\s(")
+                         (progn (end-of-defun)
                                 (< location (point)))
                          (progn (forward-sexp -1)
                                 (>= location (point))))